home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / ixemul / support / fltuld.s < prev    next >
Text File  |  1999-01-01  |  311b  |  18 lines
  1.     xdef    __ieeefltuld
  2.     xref    ___floatsidf
  3.     xref    ___adddf3
  4. __ieeefltuld:
  5.     move.l  4(a7),-(a7)
  6.     jsr     ___floatsidf
  7.     addq.w  #4,a7
  8.     tst.l   4(a7)
  9.     bge.s   ll
  10.     movem.l d0/d1,-(a7)
  11.     clr.l   -(a7)
  12.     move.l  #$41f00000,-(a7)
  13.     jsr     ___adddf3
  14.     add.w   #16,a7
  15. ll:
  16.     rts
  17.  
  18.